home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSAM.EXE / BDLDRVR.PRG < prev    next >
Text File  |  1993-03-18  |  3KB  |  97 lines
  1. FUNCTION BDLDrvr
  2. *----------------------------------------------------------------------------
  3. * NAME
  4. *   BDLDrvr() - 
  5. *
  6. *----------------------------------------------------------------------------
  7.   PRIVATE lCalled, cLSTFile, cInLine
  8.   cLSTFile = ""
  9.   cInLine = ""
  10.  
  11.   IF TYPE( "aClkObj[1,1]" ) = "N"
  12.  
  13.     lCalled = TYPE( "CD_FILE_1" ) = "C"
  14.     IF TYPE( "BDCLINK[ 1 ]" ) = "U"
  15.  
  16.       PUBLIC ARRAY BDCLINK[ 6 ]
  17.  
  18.       *-- EF_EXEP_1 - XXXXXXXXXXXXXXXXXXXXXXXXX  Procedure to run
  19.       IF lCalled .AND. .NOT. ISBLANK( CD_LIST_1 )
  20.         IF LEFT( CD_LIST_1, 1 ) = "@"
  21.           cLSTFile = TRIM( SUBSTR( CD_LIST_1, 2 ) )
  22.         ELSE
  23.           cLSTFile = TRIM( CD_LIST_1 )
  24.         ENDIF
  25.  
  26.         IF FILE( cLSTFile ) .AND. LEFT( CD_LIST_1, 1 ) = "@"
  27.           fhLST = 0
  28.           fhLST = FOPEN( cLSTFile, "r" )
  29.           IF fhLST > 0
  30.             cInLine = FGETS( fhLST )
  31.             DO WHILE ISBLANK( cInLine ) .AND. .NOT. FEOF( fhLST )
  32.               cInLine = FGETS( fhLST )
  33.             ENDDO
  34.             IF .NOT. ISBLANK( cInLine )
  35.               BDCLINK[ 1 ] = LEFT( _FileRoot(cInLine) + SPACE(25), 25 )
  36.             ENDIF
  37.             IF FCLOSE( fhLST )
  38.             ENDIF
  39.           ENDIF
  40.         ENDIF
  41.       ENDIF
  42.       IF ISBLANK( cInLine )
  43.         BDCLINK[ 1 ]     = SPACE( 25 )
  44.       ENDIF
  45.  
  46.       *-- EF_CONF_1 - XXXXXXXXXXXXXXXXXXXXXXXXX  Config.db
  47.       BDCLINK[ 2 ]     = SPACE( 25 )
  48.  
  49.       *-- EF_EXEF_1 - XXXXXXXXXXXXXXXXXXXXXXXXX  EXE name
  50.       IF .NOT. ISBLANK( cInLine ) .AND. ;
  51.          lCalled .AND. LEFT( CD_LIST_1, 1 ) = "@"
  52.         BDCLINK[ 3 ] = LEFT( _FileRoot(cInLine) + SPACE(25), 25 )
  53.       ELSE
  54.         BDCLINK[ 3 ]     = SPACE( 25 )
  55.       ENDIF
  56.  
  57.       *-- BT_OK -    Ok
  58.       BDCLINK[ 4 ]     = .T.
  59.  
  60.       *-- BT_CANCEL -  Cancel
  61.       BDCLINK[ 5 ]     = .F.
  62.  
  63.       *-- BT_HELP -   Help
  64.       BDCLINK[ 6 ]     = .F.
  65.  
  66.     ENDIF
  67.     *--------------------------------------------------------------
  68.     *-- FXL_Cancel is set to .T. is the user Cancels the dialog box
  69.     *--------------------------------------------------------------
  70.     FXL_Cancel = .F.
  71.  
  72.     *--------------------------------------------------------------
  73.     *-- FXL_NoChng lets the dialog box know that the values in the
  74.     *-- array are not different from the SCR file defaults.  This
  75.     *-- will allow the dialog box to use the .WIN file for a faster
  76.     *-- startup.
  77.     *--------------------------------------------------------------
  78.     FXL_NoChng = .F.
  79.  
  80.     DO BDCLINK
  81.  
  82.     IF .NOT. FXL_Cancel                   && The user clicked on OK
  83.  
  84.       *-----------------------------------
  85.       *-- Put your Ok processing code here
  86.       *-----------------------------------
  87.  
  88.     ENDIF
  89.  
  90.   ENDIF
  91.  
  92. RETURN .T.
  93. *-- EOF: BDLDrvr(  )
  94.  
  95.  
  96.  
  97.